home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / internet / vbsock11 / chat / server / get_ini.bas next >
BASIC Source File  |  1994-10-06  |  595b  |  23 lines
  1. Global iniFileName As String
  2.  
  3.  
  4. Function GetIniData (iniSection As String, iniParam As String) As String
  5.  
  6.     Dim datastring As String * 1024
  7.     datastring = Space$(1024)
  8.     amount = GetPrivateProfileString(iniSection, iniParam, " ", datastring, 1024, iniFileName)
  9.     If amount = 0 Then
  10.         GetIniData = ""
  11.     Else
  12.         GetIniData = RTrim$(datastring)
  13.     End If
  14.  
  15. End Function
  16.  
  17. Function PutIniData (iniSection As String, iniParam As String, theData As String)
  18.  
  19.     PutIniData = WritePrivateProfileString(iniSection, iniParam, theData, iniFileName)
  20.  
  21. End Function
  22.  
  23.